program main
    implicit none
    character(len=20) string
    integer :: number=123
    real :: value=987.65
    string="AN EXAMPLE"
    open(8,file="FILE8-5.TXT",access="DIRECT",form="FORMATTED",recl=10)
    write(8,100,rec=1)number
    write(8,200,rec=3)value
    write(8,300,rec=2)string
100 format(i6)
200 format(f8.3)
300 format(a10)
    close(8)
end program
